home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / city173c.zip / R-PCCITY.MRG < prev    next >
Text File  |  1992-02-04  |  11KB  |  201 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]----------------
  2. * Merge this against RBBS-PC.BAS to produce RBBS-PC.NEW
  3. * RBBS-PC.BAS: Dated 9-1-1991 Size 151907 bytes
  4. * This merge allows user and SysOp to change City/State
  5. * field in the users file. See R-PCCITY.DOC for info.
  6. * Written by Gary Glueckert of The SUNY RBBS 516-420-0818
  7. * The State University of New York at Farmingdale
  8. * -----[ Merge file created 09-26-1991 - G. Glueckert ]-----
  9. * REPLACING old line(s) by new
  10. 1240 IF ZUserSecLevel < ZOptSec(ZFF) THEN _
  11.        ZViolation$ = ZSection$ + _
  12.                      " " + _
  13.                      ZWasZ$ : _
  14.         GOSUB 1380 : _
  15.         GOTO 1205
  16.      IF ZFF > 39 THEN _
  17.         ZDirExtension$ = ZLibDirExtension$ _
  18.      ELSE ZDirExtension$ = ZMainDirExtension$
  19.         ON ZFF GOSUB _
  20.                  1400, _      ' 1  A)nswer questionnaire 1
  21.                  9700, _      ' 2  B)ulletins
  22.                  1800, _      ' 3  C)omments
  23.                  10970, _     ' 4  D)oor (exit to)
  24.                  2000, _      ' 5  E)nter a message
  25.                  1275, _      ' 6  F)ile system (exit to)
  26.                  1760, _      ' 7  I)nitial welcome redisplayed
  27.                  5300, _      ' 8  J)oin a conference
  28.                  3900, _      ' 9  K)ill a message
  29.                  4700, _      '10  O)perator page
  30.                  1900, _      '11  P)ersonal mail (look for)
  31.                  4330, _      '12  R)ead messages
  32.                  4340, _      '13  S)can message headers
  33.                  4320, _      '14  T)opic msg scan
  34.                  1285, _      '15  U)tilities (exit to)
  35.                  5800, _      '16  V)iew a conference
  36.                  9800, _      '17  W)ho's on other nodes displayed
  37.                  1283, _      '18  @)Library (exit to) 18
  38.                 20160, _      '19  D)ownload
  39.                 10570, _      '20  G)oodbye
  40.                 20155, _      '21  L)ist
  41.                 20185, _      '22  N)ew
  42.                 20180, _      '23  P)ersonal files
  43.                 20175, _      '24  S)can
  44.                 20170, _      '25  U)pload
  45.                 20140, _      '26  V)iew ARC Contents
  46.                  5500, _      '27  B)aud rate change 300==>450 1
  47.                  9100, _      '28  C)lock (time & time on)
  48.                  42850, _     '29  E)cho selection
  49.                  42800, _     '30  F)ile transfer protocol
  50.                  43000, _     '31  G)raphics
  51.                  5200, _      '32  L)ines per page
  52.                  10925, _     '33  M)essage margin
  53. * ------[ first line different ]------ 
  54.                  5000, _      '34  P)ersonal Info.                   '  GG100701
  55.                  5400, _      '35  R)eview preferences
  56.                  4850, _      '36  S)tatistics displayed
  57.                  1500, _      '37  T)oggle
  58.                  10090, _     '38  U)serlog displayed 12
  59.                  30000, _     '39  A)rchive a Library disk 1
  60.                  30100, _     '40  C)hange a Library disk
  61.                  30200, _     '41  D)ownload Library files
  62.                  10570, _     '42  G)oodbye
  63.                  20155, _     '43  L)ist a Library directory
  64.                  20175, _     '44  S)can a Library disk directory
  65.                  20140, _     '45  V)iew arc contents 7
  66.                  1325, _      '46  H)elp 1
  67.                  1330, _      '47  ?)help
  68.                  1250, _      '48  Q)uit
  69.                  4240, _      '49  X)expert toggle on/off 4
  70.                  10070, _     '50  1) List comments file 1
  71.                  10090, _     '51  2) List callers file
  72.                  10390, _     '52  3) Recover a message
  73.                  10530, _     '53  4) Erase comments
  74.                  11000, _     '54  5) User file maintenance
  75.                   4130, _     '55  6) Toggle page bell on/off
  76.                  10930        '56  7) Exit to DOS 2.x or above 7
  77.      GOTO 1205
  78. '
  79. ' ***       NEWS file scan        ***
  80. '
  81. 1241 NewsDate# = VAL(MID$(BoardCheckDate$,4,2)) + _
  82.         (100 * VAL(MID$(BoardCheckDate$,1,2))) + _
  83.         (10000# * (1900 + VAL(MID$(BoardCheckDate$,7,2))))
  84.      GOTO 1243
  85. * INSERTING new line(s)
  86. * ------[ first line different ]------
  87. 5000 WasA1$ = LEFT$(ZUserLocation$,1)                                '  GG100701
  88.      CALL AllCaps(WasA1$)                                            '  GG100701
  89.      ZOutTxt$ = WasA1$ + ")" +  _                                    '  GG100701
  90.         RIGHT$(ZUserLocation$, LEN(ZUserLocation$) - 1)              '  GG100701
  91.      ZOutTxt$ = "Change P)assword or " + ZOutTxt$ + ZPressEnter$     '  GG100701
  92.      CALL SkipLine (1) : _                                           '  GG100701
  93.      ZTurboKey = -ZTurboKeyUser                                      '  GG100701
  94.      GOSUB 12995 : _                                                 '  GG100701
  95.      IF ZSubParm < 0 THEN _                                          '  GG100701
  96.         GOTO 202                                                     '  GG100701
  97.      IF ZWasQ = 0 THEN _                                             '  GG100701
  98.         RETURN                                                       '  GG100701
  99.      CALL AllCaps (ZUserIn$)                                         '  GG100701
  100.      IF ZUserIn$ = WasA1$ THEN _                                     '  GG100701
  101.         CALL SkipLine (1) : _                                        '  GG100701
  102.         CALL QuickTPut ("Your CURRENT " + ZUserLocation$ + _         '  GG100701
  103.             " is " + ZCityState$,1) : _                              '  GG100701
  104.         WasA1$ = "Enter your NEW " : _                               '  GG100701
  105.         GOSUB 12960 : _                                              '  GG100701
  106.         WasA1$ = "What is your " : _                                 '  GG100701
  107.         ZUserIn$ = "" : _                                            '  GG100701
  108.         RETURN                                                       '  GG100701
  109.      IF ZUserIn$ < > "P" THEN _                                      '  GG100701
  110.         GOTO 5000                                                    '  GG100701
  111. * REPLACING old line(s) by new
  112. * ------[ first line different ]------
  113. 11110   ZOutTxt$ = "D)el  F)ind  M)enu  N)ewPW  P)rnt  R)eset Grfx  C)" _
  114.              + ZUserLocation$ + "  Q)uit"                            '  GG100901
  115.         GOSUB 1512
  116.         ZOutTxt$ = "S)ecLvl  U)ser#  X)fer Cnts  T)ime Used  B)aud Change"
  117.         IF ZRestrictByDate THEN _
  118.            ZOutTxt$ = ZOutTxt$ + _
  119.                 " $)RegDate"
  120.         GOSUB 12930
  121.         IF NOT ScanUsers AND ZWasQ = 0 THEN _
  122.            GOTO 11310
  123. 11115   ZWasZ$ = LEFT$(ZUserIn$(ZAnsIndex),1)
  124.         CALL AllCaps (ZWasZ$)
  125.         WasX = INSTR("DNPQFSMR$UXC",ZWasZ$)                          '  GG100901
  126.         IF ZWasZ$ = "" AND ScanUsers THEN _
  127.            GOTO 12965
  128.         ON WasX GOTO 11130,11160,11220,11320,11340,11390,11330,_     '  GG100901
  129.             11400,11450,11127,11490,11190                            '  GG100901
  130.         GOTO 11110
  131. * INSERTING new line(s)
  132. 11160   GOSUB 12800
  133.         GOTO 11290
  134. * ------[ first line different ]------
  135. '                                                                    '  GG100901
  136. ' * C - COMMAND FROM 5- USER MAINTENANCE OPTIONS (CHANGE CITY/STATE) '  GG100901
  137. '                                                                    '  GG100901
  138. 11190   CityStateSave$ = WasCI$                                      '  GG100901
  139.         ZOutTxt$ = ZUserLocation$                                    '  GG100901
  140.         GOSUB 12995                                                  '  GG100901
  141.         IF ZRet OR ZWasQ = 0 THEN GOTO 11015                         '  GG100901
  142.         CALL AllCaps (ZUserIn$)                                      '  GG100901
  143.         LSET ZCityState$ = ZUserIn$                                  '  GG100901
  144.         GOTO 11290                                                   '  GG100901
  145.         WasCI$ = CityStateSave$                                      '  GG100901
  146.         GOTO 11015                                                   '  GG100901
  147. '
  148. ' *  P - COMMAND FROM 5- USER MAINTENANCE OPTIONS (PRINT USER FILE)
  149. '
  150. * REPLACING old line(s) by new
  151. 12960 ZOutTxt$ = WasA1$ + _
  152.            ZUserLocation$   
  153. * ------[ first line different ]------
  154.      IF ZOrigUserFile$ <> ZActiveUserFile$ THEN _                    '  GG100701
  155.         CALL QuickTPut1  _                                           '  GG100701
  156.         (ZUserLocation$ + " Change only in MAIN User File") : _      '  GG100701
  157.         RETURN                                                       '  GG100701
  158.       IF NOT ZNewUser THEN _                                         '  GG100701
  159.         ZOutTxt$ = ZOutTxt$ + ZPressEnter$                           '  GG100701
  160.       GOSUB 12995
  161.       IF ZSubParm < 0 THEN _                                         '  GG100701
  162.          GOTO 202                                                    '  GG100701
  163.       IF NOT ZNewUser AND ZWasQ = 0 THEN RETURN                      '  GG100701
  164.       IF WasA1$ = "" THEN RETURN                                     '  GG100701
  165.       IF ZWasQ = 0 THEN _                                             
  166.          GOTO 12960
  167.       IF ZUserIn$ = SPACE$(LEN(ZUserIn$)) THEN _
  168.          GOTO 12960
  169.       IF NOT ZNewUser THEN _                                         '  GG100701
  170.          GOSUB 12989 : _                                             '  GG100701
  171.          CALL OpenUser (HighestUserRecord) : _                       '  GG100701
  172.          GOSUB 9450 : _                                              '  GG100701
  173.          GET 5,ZUserFileIndex                                        '  GG100701
  174.       CALL AllCaps (ZUserIn$)
  175.       LSET ZCityState$ = ZUserIn$
  176.       IF NOT ZNewUser THEN _                                         '  GG100701
  177.         GOSUB 9440 : _                                               '  GG100701
  178.         GOSUB 12991 : _                                              '  GG100701
  179.         CALL SkipLine (1) : _                                        '  GG100701
  180.         CALL QuickTPut(ZUserLocation$ + " changed",2) : _            '  GG100701
  181.         CALL UpdtCalr(ZUserLocation$ + " changed to " + _            '  GG100701
  182.             ZCityState$,2)                                           '  GG100701
  183.       ZWasCI$ = ZUserIn$ 
  184.       RETURN
  185. '
  186. ' *  S - COMMAND FROM 5 - USER MAINTENANCE OPTIONS (SCAN USERS)
  187. '
  188. 12962 WasX = 0
  189.       ZFF = ZFalse
  190.       ZMacroMin = 99
  191.       ZOutTxt$ = "String to search"
  192.       GOSUB 12998
  193.       IF ZWasQ = 0 THEN _
  194.          GOTO 11001
  195.       CALL AllCaps (ZUserIn$)
  196.       WasWK$ = ZUserIn$
  197.       IF ScanFunction$ = "L" THEN _
  198.          WasWK$ = "," + _
  199.                STR$(VAL(WasWK$)) + _
  200.                ","
  201.